Imports System.Windows.Forms

Public Partial Class PasteImageForm
	Inherits Form

	#Region "Constructor"

	Public Sub New(imageWidth As Integer, imageHeight As Integer)
		InitializeComponent()

		nXCoord.Maximum = imageWidth
		nYCoord.Maximum = imageHeight
	End Sub

	#End Region


	#Region "Properties"

	Private _xCoord As Integer
	Public ReadOnly Property X() As Integer
		Get
			Return _xCoord
		End Get
	End Property

	Private _yCoord As Integer
	Public ReadOnly Property Y() As Integer
		Get
			Return _yCoord
		End Get
	End Property

	#End Region


	#Region "Methods"

	Private Sub bOk_Click(sender As Object, e As EventArgs)
		_xCoord = CInt(Math.Truncate(nXCoord.Value))
		_yCoord = CInt(Math.Truncate(nYCoord.Value))
		DialogResult = System.Windows.Forms.DialogResult.OK
	End Sub

	#End Region

End Class
